VERSION 4.00
Begin VB.Form GenWin 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Generating File..."
   ClientHeight    =   405
   ClientLeft      =   5025
   ClientTop       =   7065
   ClientWidth     =   3015
   Height          =   810
   Left            =   4965
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   405
   ScaleWidth      =   3015
   ShowInTaskbar   =   0   'False
   Top             =   6720
   Width           =   3135
   Begin VB.PictureBox TotalProgress 
      Height          =   375
      Left            =   0
      ScaleHeight     =   315
      ScaleWidth      =   2715
      TabIndex        =   0
      Top             =   0
      Width           =   2775
      Begin VB.PictureBox ProgressBar2 
         BackColor       =   &H000000FF&
         Height          =   255
         Left            =   0
         ScaleHeight     =   195
         ScaleWidth      =   555
         TabIndex        =   2
         Top             =   175
         Width           =   615
      End
      Begin VB.PictureBox Progressbar 
         BackColor       =   &H00800000&
         Height          =   375
         Left            =   0
         ScaleHeight     =   315
         ScaleWidth      =   315
         TabIndex        =   1
         Top             =   0
         Width           =   375
      End
   End
End
Attribute VB_Name = "GenWin"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub Form_Load()
'adhere to skins
Me.BackColor = Window.BackColor
ProgressBar.BackColor = Window.Progress.BackColor
ProgressBar2.BackColor = Window.Progress2.BackColor
totalprogress.BackColor = Window.totalprogress.BackColor

ProgressBar2.Visible = False
Me.Width = totalprogress.Width
Me.Top = 0
Me.Left = Screen.Width - Me.Width
Me.Visible = True
SetWindowPos Me.hWnd, HWND_TOPMOST, Me.Left / 15, _
     Me.Top / 15, Me.Width / 15, _
     Me.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW

End Sub


Private Sub Picture1_Click()

End Sub

Private Sub Form_Unload(Cancel As Integer)
SetWindowPos Me.hWnd, HWND_NOTOPMOST, Me.Left / 15, _
     Me.Top / 15, Me.Width / 15, _
     Me.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub

